object FormMusic: TFormMusic
  Left = 228
  Top = 159
  ActiveControl = Files
  BorderIcons = []
  BorderStyle = bsToolWindow
  Caption = 'Music Playlist Editor'
  ClientHeight = 446
  ClientWidth = 632
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000888880000000000000000000000
    0000444448800000000000000000000000004FFFF48000000000000000000000
    000004FFF48000000000000000000000000004FFF48000000000000000000000
    000004FFF48800000000000000000000000004FFFF4800000000000000000000
    0000004FFF48000000000000000000000000004FFF4880000000000000000000
    0000004FFFF48888800000000000000000000004FFF444448880000000000000
    00000004FFFFFFFF448888000000000000000004FFFFFFFFFF44488000000000
    000000004FFF4444FFFFF48880000000000000004FFF4CCC44FFFF4488000000
    000000004FFF4EEECC4FFFFF48800000000000004FFFF4FFEEC44FFFF4800000
    0000000004FFF480FFECC4FFF48800000000000004FFF48800FEC4FFFF480FF0
    0000000004FFFF48000FEC4FFF4800EFF000000004FFFF48000FEC4FFF48000E
    EFFFF000004444400FFFEC4FFF48000CCCEEEEFFFFFFFFFFFEEEC4FFFF480000
    44CCCCCEEEEEEEEEECCC4FFFFF4000000444444CCCCCCCCCC444FFFFF4000000
    004FFFF4444444444FFFFFFF4000000000044FFFFFFFFFFFFFFFFF4400000000
    00000444FFFFFFFFFFF444000000000000000000444444444440000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFF83FFFFFF01FFFFFF01FFFFFF81FFFFFF81FFFFFF80FFFFFF80FFFFFFC0
    FFFFFFC07FFFFFC007FFFFE001FFFFE0003FFFE0001FFFF00007FFF00003FFF0
    0001FFF00001FFF81000FFF80C009FF80E00C7F80E00E07C1800E0000000F000
    0001F8000003FC000007FE00000FFF80003FFFF001FFFFFFFFFFFFFFFFFF}
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnMouseMove = FormMouseMove
  PixelsPerInch = 120
  TextHeight = 14
  object Bevel1: TBevel
    Left = 348
    Top = 214
    Width = 40
    Height = 69
    Shape = bsFrame
  end
  object LabelCount: TLabel
    Left = 386
    Top = 8
    Width = 154
    Height = 14
    AutoSize = False
    Caption = 'Music Playlist (0 Songs)'
    FocusControl = Files
  end
  object Label2: TLabel
    Left = 6
    Top = 8
    Width = 238
    Height = 14
    AutoSize = False
    Caption = 'Selected Drive / &Directory'
    FocusControl = Dirs
  end
  object BtnUp: TSpeedButton
    Tag = -1
    Left = 356
    Top = 222
    Width = 25
    Height = 25
    Hint = 'Moves the selected song in the playlist one position file up'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333337777777777733333FFFFFFFFFFF33332222222222
      27333377777777777F33332AAAAAAAAA23333373F333333373333332AAAAAAA2
      73333337F3333337F3333332AAAAAAA2333333373F333337333333332AAAAA27
      333333337F33337F333333332AAAAA233333333373F333733333333332AAA273
      3333333337F337F33333333332AAA23333333333373F373333333333332A2733
      33333333337F7F3333333333332A233333333333337373333333333333323333
      3333333333373333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    OnClick = BtnUpClick
    OnMouseMove = FormMouseMove
  end
  object BtnDown: TSpeedButton
    Tag = 1
    Left = 356
    Top = 250
    Width = 25
    Height = 25
    Hint = 'Moves the selected song in the playlist one position file down'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333337333
      333333333333F3333333333333327733333333333337FF3333333333332A2733
      33333333337F7F3333333333332A27733333333333737FF33333333332AAA273
      3333333337F337F33333333332AAA27733333333373337FF333333332AAAAA27
      333333337F33337F333333332AAAAA27733333337333337FF3333332AAAAAAA2
      73333337F3333337F3333332AAAAAAA27733333733333337FF33332AAAAAAAAA
      2733337FFFFFFFFF7F3333222222222223333377777777777333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    OnClick = BtnUpClick
    OnMouseMove = FormMouseMove
  end
  object BtnClear: TSpeedButton
    Left = 543
    Top = 6
    Width = 81
    Height = 19
    Hint = 'Clear the playlist'
    Caption = 'Cl&ear Playlist'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Layout = blGlyphRight
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    OnClick = BtnClearClick
    OnMouseMove = FormMouseMove
  end
  object Bevel2: TBevel
    Left = 249
    Top = 122
    Width = 132
    Height = 10
    Shape = bsTopLine
  end
  object Bevel4: TBevel
    Left = 243
    Top = 388
    Width = 144
    Height = 10
    Shape = bsTopLine
  end
  object Bevel3: TBevel
    Left = 243
    Top = 322
    Width = 144
    Height = 10
    Shape = bsTopLine
  end
  object LabelChanged: TStaticText
    Left = 249
    Top = 395
    Width = 132
    Height = 26
    Hint = 'The listed music playlist has been changed'
    AutoSize = False
    Caption = '* Playlist Changed'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 17
    Visible = False
    OnMouseMove = FormMouseMove
  end
  object BtnStop: TBitBtn
    Left = 127
    Top = 395
    Width = 117
    Height = 26
    Hint = 'Stop the currently sampled song'
    Caption = 'S&top Song'
    Glyph.Data = {
      06010000424D060100000000000076000000280000000E000000120000000100
      0400000000009000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888877777777
      8800888000000007880088801111110788008880199991078800888019999107
      8800888019999107880088801999910788008880111111078800888000000008
      8800888888888F8888008888F8880FF888008880FF8000F8880088000F8800F8
      880088800F88F0F8880088880FF000F888008888000FF0F8880088880FF00088
      88008888000888888800}
    ParentShowHint = False
    ShowHint = False
    TabOrder = 4
    OnClick = BtnStopClick
    OnMouseMove = FormMouseMove
  end
  object BtnOK: TBitBtn
    Left = 386
    Top = 395
    Width = 131
    Height = 26
    Hint = 'Load and play the current playlist'
    Caption = '&Load Playlist'
    Glyph.Data = {
      06010000424D060100000000000076000000280000000E000000120000000100
      0400000000009000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888880288
      88008888888800288800888882220A028800888220000AA0280088200AAAAAAA
      0800820AA0000AA0880080A008880A0888002008888800888800008888880888
      8800088888888F8888000888F8880FF888008880FF8000F8880088000F8800F8
      880088800F88F0F8880088880FF000F888008888000FF0F8880088880FF00088
      88008888000888888800}
    ParentShowHint = False
    ShowHint = False
    TabOrder = 12
    OnClick = BtnOKClick
    OnMouseMove = FormMouseMove
  end
  object BtnClose: TBitBtn
    Left = 522
    Top = 395
    Width = 102
    Height = 26
    Hint = 'Closes the music screen'
    Cancel = True
    Caption = '&Close'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      55555555555F5555555555555505555555555555557FF5555555555550005555
      555555555777F555555555550CC05555555555557F57FF55555555550CE00555
      5555555575577F5555555550CEEC05555555555755557FF55555550CECEC0055
      5555557F5FF577F55555550C00CEC0555555557F775F575F55555500550CE005
      555555775575F57F555555555550CC055555555555575F7FF555555555550C00
      5555555555557577FF555555555550C005555555555557577FF555555555550C
      005555555555557577FF555555555550C005555555555557577F555555555555
      0000555555555555777755555555555555555555555555555555}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    TabOrder = 13
    OnClick = BtnCloseClick
    OnMouseMove = FormMouseMove
  end
  object Dirs: TDirectoryListBox
    Left = 6
    Top = 53
    Width = 238
    Height = 135
    FileList = Files
    TabOrder = 1
    OnMouseMove = FormMouseMove
  end
  object Drives: TDriveComboBox
    Left = 6
    Top = 26
    Width = 238
    Height = 22
    DirList = Dirs
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object BtnSound: TBitBtn
    Left = 6
    Top = 395
    Width = 117
    Height = 26
    Hint = 'Click here to preview the selected song'
    Caption = 'Sam&ple Song'
    Glyph.Data = {
      06010000424D060100000000000076000000280000000E000000120000000100
      0400000000009000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888877788888
      88008880007778888800888022007778880088802A220077780088802AAA2200
      780088802AAA2200880088802A22008888008880220088888800888000888888
      8800888888888F8888008888F8880FF888008880FF8000F8880088000F8800F8
      880088800F88F0F8880088880FF000F888008888000FF0F8880088880FF00088
      88008888000888888800}
    ParentShowHint = False
    ShowHint = False
    TabOrder = 3
    OnClick = BtnSoundClick
    OnMouseMove = FormMouseMove
  end
  object Songlist: TListBox
    Left = 386
    Top = 26
    Width = 238
    Height = 362
    ItemHeight = 14
    TabOrder = 11
    OnDblClick = BtnRemoveClick
    OnMouseMove = FormMouseMove
  end
  object Files: TFileListBox
    Left = 6
    Top = 194
    Width = 238
    Height = 194
    ItemHeight = 14
    Mask = '*.mid;*.rmi;*.mp3'
    TabOrder = 2
    OnDblClick = BtnAddClick
    OnKeyPress = FilesKeyPress
    OnMouseMove = FormMouseMove
  end
  object PanelLoading: TPanel
    Left = 32
    Top = 270
    Width = 185
    Height = 41
    BevelInner = bvLowered
    BevelWidth = 2
    Caption = 'Loading Song...'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    TabOrder = 15
    Visible = False
    OnMouseMove = FormMouseMove
  end
  object BtnLoad: TBitBtn
    Left = 249
    Top = 54
    Width = 132
    Height = 25
    Hint = 'Open a Portal'#169' playlist'
    Caption = '&Open Playlist'
    Glyph.Data = {
      96010000424D960100000000000076000000280000001C000000120000000100
      0400000000002001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00887777777778
      8888FFFFFFFFF88800008000000000778887777777778F880000800B3B3B3B07
      788778F8888878F8000080B0B3B3B3B07787F78F8888878F000080BB0B3B3B3B
      0887F878FFFFFF78000080BBB00000008887F88777777788000080BBBBBBBB08
      8887F888FFFF7888000080BBB000008888878FF7777788880000880008888888
      88887778888888880000888888888F8888888888888F888800008888F8880FF8
      888888F8887FF88800008880FF8000F8888887FF8777F888000088000F8800F8
      8888777F8877F888000088800F88F0F88888877F88F7F888000088880FF000F8
      8888887FF777F88800008888000FF0F8888888777FF7F888000088880FF00088
      8888887FF7778888000088880008888888888877788888880000}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    TabOrder = 5
    OnClick = BtnLoadClick
    OnMouseMove = FormMouseMove
  end
  object BtnSave: TBitBtn
    Left = 249
    Top = 84
    Width = 132
    Height = 25
    Hint = 'Saves the current music playlist'
    Caption = 'Sa&ve Playlist'
    Glyph.Data = {
      96010000424D960100000000000076000000280000001C000000120000000100
      0400000000002001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888877777788
      888888FFFFF8888800008887777747888888877777FF88880000884744774788
      888877FF777F8888000088477777478888887777777F88880000884444444788
      88887FFFFF7F8888000088400000478888887777777F888800008840FFF04788
      888877F8877F888800008840FFF04788888877FFF77F88880000884077704888
      88887777777888880000888888888F8888888888888F888800008888F8880FF8
      888888F8887FF88800008880FF8000F8888887FF8777F888000088000F8800F8
      8888777F8877F888000088800F88F0F88888877F88F7F888000088880FF000F8
      8888887FF777F88800008888000FF0F8888888777FF7F888000088880FF00088
      8888887FF7778888000088880008888888888877788888880000}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    TabOrder = 6
    OnClick = BtnSaveClick
    OnMouseMove = FormMouseMove
  end
  object BtnAutoload: TBitBtn
    Left = 249
    Top = 133
    Width = 132
    Height = 25
    Hint = 'Select autoloaded playlist'
    Caption = 'Select A&uto Playlist'
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    TabOrder = 7
    OnClick = BtnAutoloadClick
    OnMouseMove = FormMouseMove
  end
  object BtnClearList: TBitBtn
    Left = 249
    Top = 163
    Width = 132
    Height = 25
    Caption = 'Clear Auto &Playlist'
    Glyph.Data = {
      F6000000424DF60000000000000076000000280000000C000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      00008888888888880000F888888888880000FFF8888888880000FFFFF8888888
      0000FFFFFFF888880000FFFFFF1178880000FF8FF1D997880000F888819D9778
      0000888887997337000088888877B333000088888883BB330000888888883BB3
      00008888888883BB000088888888883B00008888888888830000}
    ParentShowHint = False
    ShowHint = False
    TabOrder = 8
    OnClick = BtnClearListClick
    OnMouseMove = FormMouseMove
  end
  object MP: TMediaPlayer
    Left = 320
    Top = 14
    Width = -1
    Height = 20
    VisibleButtons = [btPlay, btStop]
    Visible = False
    TabOrder = 14
  end
  object Panel1: TPanel
    Left = 0
    Top = 427
    Width = 632
    Height = 19
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 16
    object Status: TLabel
      Left = 1
      Top = 1
      Width = 3
      Height = 14
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
  object BtnRemove: TBitBtn
    Left = 249
    Top = 357
    Width = 132
    Height = 25
    Hint = 'Remove the selected song from the playlist'
    Caption = '&Remove from List'
    Glyph.Data = {
      76010000424D760100000000000076000000280000001E000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888888888888888880088888888788888888888888F88888800888888817788
      88888888887FF88888008888771917877888888FF7F7F8FF8800888117191711
      78888877F7F7F77F88008881911B11918888887877777878880088871B9B9B17
      778888F7F87FF7FFF800881119BBB91117788777F777F777FF008199BBBBBBB9
      918878F7777777FF7800881119BBB91118888777F7778777880088881B9B9B17
      788888878F7FF7FF88008881911B11917888887F7777787F8800888118191711
      8888887787F7F778880088888819188888888888878788888800888888818888
      8888888888788888880088888888888888888888888888888800}
    Layout = blGlyphRight
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    TabOrder = 9
    OnClick = BtnRemoveClick
    OnMouseMove = FormMouseMove
  end
  object BtnAdd: TBitBtn
    Left = 249
    Top = 329
    Width = 132
    Height = 25
    Hint = 'Add the selected song to the music playlist'
    Caption = '&Add Song to List'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333337733333333333333FF3333333333333007773333
      3333333773FF3333333333302007773333333337F773FF333333333022200777
      33333337F3F773FF333333302AA2200777333337F773F773FF3333302AAAA220
      07733337F7F773F773F333302AAAAAA220333337F7F3F773F73333302AAAA220
      03333337F7F773F7733333302AA2200333333337F773F7733333333022200333
      33333337F3F77333333333302003333333333337F77333333333333003333333
      3333333773333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    Layout = blGlyphRight
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    TabOrder = 10
    OnClick = BtnAddClick
    OnMouseMove = FormMouseMove
  end
  object MainMenu1: TMainMenu
    Left = 254
    Top = 9
    object MenuMain: TMenuItem
      Caption = 'Main'
      Visible = False
      object MenuUp: TMenuItem
        Tag = -1
        Caption = 'Up'
        ShortCut = 8230
        OnClick = BtnUpClick
      end
      object MenuDown: TMenuItem
        Tag = 1
        Caption = 'Down'
        ShortCut = 8232
        OnClick = BtnUpClick
      end
      object CtrlA1: TMenuItem
        Tag = 999
        Caption = 'Esc'
        ShortCut = 27
        OnClick = BtnStopClick
      end
    end
  end
  object DialogOpenPlaylist: TOpenDialog
    Filter = 'Portal Playlist Files (*.tk3)|*.tk3'
    Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist]
    Title = 'Load Playlist'
    Left = 282
    Top = 9
  end
  object DialogSavePlaylist: TSaveDialog
    Filter = 'Portal Playlist Files (*.tk3)|*.tk3'
    InitialDir = 'files'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Title = 'Save Playlist'
    Left = 310
    Top = 9
  end
end
